﻿Public Class appSettingEventArgs
    Inherits EventArgs

    Private _boolVal As Boolean
    Public Property BoolVal() As Boolean
        Get
            Return _boolVal
        End Get
        Set(ByVal value As Boolean)
            _boolVal = value
        End Set
    End Property
    Private _intVal As Integer
    Public Property IntVal() As Integer
        Get
            Return _intVal
        End Get
        Set(ByVal value As Integer)
            _intVal = value
        End Set
    End Property
    Private _exception As Exception
    Public Property Exception() As Exception
        Get
            Return _exception
        End Get
        Set(ByVal value As Exception)
            _exception = value
        End Set
    End Property

    Public Sub New(ByVal bool As Boolean)
        _boolVal = bool
    End Sub
    Public Sub New(ByVal int As Integer)
        _intVal = int
    End Sub
    Public Sub New(ByVal int As Integer, ByVal bool As Boolean)
        _intVal = int
        _boolVal = bool
    End Sub
    Public Sub New(ByVal ex As Exception)
        _exception = ex
    End Sub
End Class
